home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / misc / BST_SystemDocs.lha / BeastV1 / Examples / B52_System / test.b52 < prev    next >
Encoding:
Text File  |  1996-03-31  |  703 b   |  57 lines
  1.  
  2.  
  3. : pr  " result = " .STR . CR ;
  4.  
  5. " This should result in 255 " .STR CR
  6.  
  7. $FF pr
  8.  
  9. " This should result in 65535 " .STR CR
  10.  
  11. $FFFF pr
  12.  
  13. " This should result in -1 " .STR CR
  14.  
  15. $FFFFFFFF pr
  16.  
  17. " This should result in 320 " .STR CR
  18.  
  19. 160 160 +  pr
  20.   4 80  *  pr
  21. 360 40  -  pr
  22. 3200 10 /  pr
  23.  
  24. " This should result in 2147483647 " .STR CR
  25.  
  26. 100  0  /  pr
  27.  
  28. " This should result in 0 " .STR CR
  29.  
  30. 0 100   /  pr
  31.  
  32. " This should result in 320 " .STR CR
  33.  
  34. 100 320 MAX pr
  35. 320 100 MAX pr
  36. 320 640 MIN pr
  37. 640 320 MIN pr
  38.  
  39. " This should result in -1 " .STR CR
  40.  
  41. 100 10    > pr
  42. -100 -200 > pr
  43. 1  -1     > pr
  44.  
  45. 10   100  < pr
  46. -200 -100 < pr
  47. -1 1      < pr
  48.  
  49. 10 10  >= pr
  50. 11 10  >= pr
  51.  
  52. 10 10  <= pr
  53. 10 11  <= pr
  54.  
  55. 10 10  =  pr
  56. 10 11  <> pr
  57.